20 SYS65418:SYS65412
30 POKE55,0:POKE56,160:CLR:SYS58451
40 IFPEEK(1023)=251THENSYS52480
50 D$=""
60 PRINTD$"LOAD"CHR$(34)"VISUAL"CHR$(34)",8"D$;
65 POKE198,5:POKE631,76:POKE632,13:POKE633,82:POKE634,213:POKE635,13:NEW